home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / tilt11.sit / Tilt 1.1 / card_10413.txt < prev    next >
Text File  |  1988-11-14  |  2KB  |  127 lines
  1. -- card: 10413 from stack: in.1
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2747
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global Name
  9.   global Beloved
  10.   put Name into card field 2
  11.   put Beloved into card field 1
  12. end openCard
  13.  
  14.  
  15.  
  16. -- part 1 (field)
  17. -- low flags: 01
  18. -- high flags: 0000
  19. -- rect: left=192 top=234 right=253 bottom=399
  20. -- title width / last selected line: 0
  21. -- icon id / first selected line: 0 / 0
  22. -- text alignment: 0
  23. -- font id: 5
  24. -- text size: 14
  25. -- style flags: 1024
  26. -- line height: 18
  27. -- part name: 
  28.  
  29.  
  30. -- part 2 (field)
  31. -- low flags: 01
  32. -- high flags: 0000
  33. -- rect: left=189 top=145 right=164 bottom=396
  34. -- title width / last selected line: 0
  35. -- icon id / first selected line: 0 / 0
  36. -- text alignment: 0
  37. -- font id: 5
  38. -- text size: 14
  39. -- style flags: 1024
  40. -- line height: 18
  41. -- part name: 
  42.  
  43.  
  44. -- part 3 (button)
  45. -- low flags: 00
  46. -- high flags: A003
  47. -- rect: left=143 top=277 right=299 bottom=243
  48. -- title width / last selected line: 0
  49. -- icon id / first selected line: 0 / 0
  50. -- text alignment: 1
  51. -- font id: 0
  52. -- text size: 12
  53. -- style flags: 0
  54. -- line height: 16
  55. -- part name: Print Award
  56. ----- HyperTalk script -----
  57. on mouseUp
  58.   global Name
  59.   global Beloved
  60.  
  61.   repeat while card field 2 = ""
  62.     ask "We Need Your Name, Noble Sir!"
  63.     put it into card field 2
  64.   end repeat
  65.  
  66.   repeat while card field 1 = ""
  67.     ask "We Need Your Beloved's Name, M'Lord!"
  68.     put it into card field 1
  69.   end repeat
  70.  
  71.   hide button 1
  72.   hide button 2
  73.   hide button 3
  74.   print this card
  75.   show button 1
  76.   show button 2
  77.   show button 3
  78.  
  79. end mouseUp
  80.  
  81.  
  82.  
  83. -- part 4 (button)
  84. -- low flags: 00
  85. -- high flags: A003
  86. -- rect: left=143 top=299 right=321 bottom=243
  87. -- title width / last selected line: 0
  88. -- icon id / first selected line: 0 / 0
  89. -- text alignment: 1
  90. -- font id: 0
  91. -- text size: 12
  92. -- style flags: 0
  93. -- line height: 16
  94. -- part name: New Tourney
  95. ----- HyperTalk script -----
  96. on mouseUp
  97.   openStack
  98. end mouseUp
  99.  
  100.  
  101.  
  102. -- part 5 (button)
  103. -- low flags: 00
  104. -- high flags: A003
  105. -- rect: left=142 top=320 right=342 bottom=242
  106. -- title width / last selected line: 0
  107. -- icon id / first selected line: 0 / 0
  108. -- text alignment: 1
  109. -- font id: 0
  110. -- text size: 12
  111. -- style flags: 0
  112. -- line height: 16
  113. -- part name: Quit
  114. ----- HyperTalk script -----
  115. on mouseUp
  116.   go home
  117. end mouseUp
  118.  
  119.  
  120.  
  121. -- part contents for card part 2
  122. ----- text -----
  123. <Your Name>LAWRENCE
  124.  
  125. -- part contents for card part 1
  126. ----- text -----
  127. <Your Beloved's Name>ASTRID